home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / cli / Split1_0.lha / Split1.0 / MJoin < prev    next >
AmigaDOS Script File  |  1994-10-11  |  649b  |  27 lines
  1. .key BASISNAME/A,TO/K/A,QUIET/S
  2. .bra {
  3. .ket }
  4. . $VER: MSplit 1.0 (10.10.94)
  5. . Joins files {BASISNAME}.1, ... {BASISNAME}.n to file {TO}
  6. FailAt 10
  7. If EXISTS "{BASISNAME}.1"
  8.    Copy "{BASISNAME}.1" TO T:MSplit*${$$}.tmp QUIET
  9.    Set MSplitCnt 1
  10.    Lab loop
  11.    If "{QUIET}" EQ ""
  12.       List "{BASISNAME}.$MSplitCnt" LFORMAT "   %N"
  13.    EndIf
  14.    Set MSplitCnt `Eval $MSplitCnt + 1`
  15.    If EXISTS "{BASISNAME}.$MSplitCnt"
  16.       Join T:MSplit*${$$}.tmp "{BASISNAME}.$MSplitCnt" TO {TO}
  17.       Copy {TO} T:MSplit*${$$}.tmp QUIET
  18.    Else
  19.       Delete T:MSplit*${$$}.tmp QUIET
  20.       UnSet MSplitCnt
  21.       Quit
  22.    EndIf
  23.    Skip loop BACK
  24. Else
  25.    Fault 205
  26. EndIf
  27.